home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1996 September / inter@ivo 1996-09.iso / cybint8 / bin / cc.dxr / 00103.ls < prev    next >
Encoding:
Text File  |  1996-08-02  |  333 b   |  19 lines
  1. on mouseUp
  2.   global act
  3.   sound playFile 2, "..\som\ovo.wav"
  4.   startTimer()
  5.   repeat while the timer < 20
  6.     nothing()
  7.   end repeat
  8.   onVis(8)
  9.   updateStage()
  10.   startTimer()
  11.   repeat while the timer < 30
  12.     nothing()
  13.   end repeat
  14.   set act to 1
  15.   set the volume of sound 1 to 0
  16.   set the volume of sound 2 to 0
  17.   onVis(12, 14)
  18. end
  19.